home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 86 / 086.d81 / readfile source < prev    next >
Text File  |  2022-08-26  |  1KB  |  111 lines
  1. open =$ffc0
  2. readst =$ffb7
  3. setlfs =$ffba
  4. setnam =$ffbd
  5. load =$ffd5
  6. getin =$ffe4
  7. clrchn =$ffcc
  8. close =$ffc3   ;a
  9. chrin =$ffcf
  10. chkout =$ffc9  ;x
  11. chkin =$ffc6   ;x
  12. plot =$fff0
  13. chrout =$ffd2
  14. color'pointer =243
  15. screen'line'pointer =209
  16. print'number =$bdcd ;x,a
  17. clear'line =59903
  18. background =53281
  19. border =53280
  20. unlisten =$ffae
  21. clall =$ffe7
  22.  
  23.  
  24. ; read file, ascii or 
  25. ; for ascii: sys addr,filename$
  26. ; for screen code, sys addr+3
  27. .org $c000
  28. .mem
  29.  
  30. jmp ascii
  31.  
  32. lda #255
  33. sta 251
  34. jmp get'name
  35.  
  36. ascii lda #0
  37. sta 251
  38.  
  39. get'name lda #147
  40. jsr chrout
  41. lda 646
  42. sta 252
  43.  
  44. lda #1
  45. ldx 186
  46. cpx #8
  47. bcs +
  48. ldx #8
  49. + ldy #2
  50. jsr setlfs
  51.  
  52. jsr $aefd
  53. jsr $ad9e
  54. jsr $b6a3
  55.  
  56. ldx $22 ;<filename
  57. ldy $23 ;>filename
  58. jsr setnam
  59. jsr open
  60. ldx #1
  61. jsr chkin
  62.  
  63. bit 251
  64. bvs print'screen'setup
  65.  
  66. print'ascii jsr getin
  67. ldx 252
  68. stx 646
  69. ldx #1
  70. sta 212
  71. jsr chrout
  72. - ldx 653
  73. bne -
  74. jsr readst
  75. and #64
  76. bne quit
  77. beq print'ascii
  78.  
  79. print'screen'setup ldy #0
  80. lda 646
  81. sta 252
  82.  
  83. print'screen jsr getin
  84. cmp #31
  85. beq next'line
  86.  
  87. sta (209),y
  88. lda 252
  89. sta (243),y
  90. iny
  91. cpy #40
  92. bne +
  93. next'line ldy #0
  94. lda #13
  95. jsr chrout
  96.  
  97. / lda 653
  98. bne -
  99.  
  100. jsr readst
  101. and #64
  102. bne quit
  103. beq print'screen
  104.  
  105. quit jsr clrchn
  106. lda #13
  107. jsr chrout
  108. lda #1
  109. jmp close
  110.  
  111.